home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="Windows-1252"?>
- <html xmlns:MadCap="http://www.madcapsoftware.com/Schemas/MadCap.xsd" MadCap:tocPath="Windows XP|RAS und Internet|Internetanbindung">
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=Windows-1252" /><title>Compuserve Login Skript</title>
- <!--sphider_noindex-->
- <meta name="keywords" content="Windows Vista, windows xp, 2003, 2000, Tipp, ME, Millennium, 98, windows 95, windows nt, Registy, tuning, tweak ui, internet explorer, internet,Compuserv,Script,Skript" />
- <link href="../primary.css" rel="stylesheet" type="text/css" />
- <script src="../skinsupport/madcaputilities.js">/*<![CDATA[*/ /*]]>*/</script>
- <script src="../skinsupport/madcapbody.js">/*<![CDATA[*/ /*]]>*/</script>
- <script src="../skinsupport/madcaphighlighter.js">/*<![CDATA[*/ /*]]>*/</script>
- </head>
- <body><script language="javascript">
- if (window.name != "content")
- document.write("<center><a href='../index.html?page=tip0000/tip0088.htm'>show framing</a></center>")
- </script>
- <h1><a name="kanchor1260"></a><a name="kanchor1261"></a><a name="kanchor1262"></a>Compuserve Login Skript</h1>
- <p class="htmlsystem"><a href="tip0001.htm" title="Windows 95"><img src="../icons/95.png" alt="Windows 95" /></a><a href="tip0001.htm" title="Windows 98"><img src="../icons/98.png" alt="Windows 98" /></a><a href="tip0001.htm" title="Windows ME"><img src="../icons/me.png" alt="Windows ME" /></a><a href="tip0001.htm" title="Windows NT"><img src="../icons/nt.png" alt="Windows NT" /></a><a href="tip0001.htm" title="Windows 2000"><img src="../icons/2000.png" alt="Windows 2000" /></a><a href="tip0001.htm" title="Windows XP"><img src="../icons/xp.png" alt="Windows XP" /></a>
- </p>
- <hr width="100%" size="4" align="center" />
- <p>
- <img src="../icons/internet.png" alt="icons/internet.png" width="44" height="36" align="BASELINE" border="0" />
- </p>
- <p><span style="color: #008000;">;-------------- Anfang</span>
- </p>
- <p><span style="color: #008000;">proc main</span>
- </p>
- <p><span style="color: #008000;">set port databits 7</span>
- </p>
- <p><span style="color: #008000;">set port parity even</span>
- </p>
- <p><span style="color: #008000;">delay 2</span>
- </p>
- <p><span style="color: #008000;">transmit "<cr>"</span>
- </p>
- <p><span style="color: #008000;">waitfor "ame:"</span>
- </p>
- <p><span style="color: #008000;">transmit "CIS<cr>"</span>
- </p>
- <p><span style="color: #008000;">waitfor "ID:"</span>
- </p>
- <p><span style="color: #008000;">transmit $USERID</span>
- </p>
- <p><span style="color: #008000;">transmit "/GO:PPPCONNECT<cr>"</span>
- </p>
- <p><span style="color: #008000;">waitfor "word:"</span>
- </p>
- <p><span style="color: #008000;">transmit $PASSWORD</span>
- </p>
- <p><span style="color: #008000;">transmit "<cr>"</span>
- </p>
- <p><span style="color: #008000;">waitfor "PPP"</span>
- </p>
- <p><span style="color: #008000;">set port databits 8</span>
- </p>
- <p><span style="color: #008000;">set port parity none</span>
- </p>
- <p><span style="color: #008000;">endproc</span>
- </p>
- <p><span style="color: #008000;">;-------------- Ende</span>
- </p>
- <p> </p>
- <p>Skript fⁿr eine <a href="tip0089.htm">RAS-Verbindung</a> zu CompuServe.</p>
- <p> </p>
- <p>Die Adressen:</p>
- <p>149.174.211.5 DNS-Adresse</p>
- <p>149.174.213.5 DNS-Adresse</p>
- <p> </p>
- <p><u>Skript:</u>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;* Login-Skript fⁿr die Einwahl ins</span>
- </p>
- <p><span style="color: #008000;">;* Internet ⁿber Datex-J und Compuserve</span>
- </p>
- <p><span style="color: #008000;">;* (Telefonnummer in Deutschland: 01910)</span>
- </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;* Version 2.1 (c) 1996 Wolfgang Wirth</span>
- </p>
- <p><span style="color: #008000;">;* Letzte ─nderung am 22:06 19.09.96</span>
- </p>
- <p><span style="color: #008000;">;* Email: 71333.1421@compuserve.com</span>
- </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">proc main</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">string ErrStr</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Dial-up Port auf 8n1 setzen</span>
- </p>
- <p><span style="color: #008000;">set port databits 8</span>
- </p>
- <p><span style="color: #008000;">set port parity none</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Hier befinden wir uns auf der T-Online</span>
- </p>
- <p><span style="color: #008000;">; Startseite. Als erstes muss ein Dezimalpunkt</span>
- </p>
- <p><span style="color: #008000;">; mit <CR> geschickt werden, um auf einen</span>
- </p>
- <p><span style="color: #008000;">; "Text-Dekoder" hinzuweisen.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">delay 3</span>
- </p>
- <p><span style="color: #008000;">transmit ".^M"</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Hier befinden wir uns auf der T-Online</span>
- </p>
- <p><span style="color: #008000;">; Login-Seite. Wenn das Wort "kennung"</span>
- </p>
- <p><span style="color: #008000;">; erscheint, wird die Compuserve-</span>
- </p>
- <p><span style="color: #008000;">; Kennung geschickt. Ein <CR> ist nicht</span>
- </p>
- <p><span style="color: #008000;">; n÷tig, da die Seite automatisch nach</span>
- </p>
- <p><span style="color: #008000;">; der Kennungseingabe wechselt.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">waitfor "kennung" until 30</span>
- </p>
- <p><span style="color: #008000;">if !$SUCCESS then</span>
- </p>
- <p><span style="color: #008000;"> Errstr="Datex-J-Kennung"</span>
- </p>
- <p><span style="color: #008000;"> goto fehler</span>
- </p>
- <p><span style="color: #008000;">endif</span>
- </p>
- <p><span style="color: #008000;">transmit "000255975978"</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Hier befinden wir uns auf der Compuserve</span>
- </p>
- <p><span style="color: #008000;">; Login-Seite. Punkt "2" steht fⁿr Login von</span>
- </p>
- <p><span style="color: #008000;">; Mitgliedern. Ein <CR> wird geschickt, um</span>
- </p>
- <p><span style="color: #008000;">; auch die nachfolgende Seite zu quittieren.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">transmit "2^M"</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Datex-J haben wir jetzt passiert. Jetzt stehen</span>
- </p>
- <p><span style="color: #008000;">; wir bei Compuserve auf der Matte. Das System</span>
- </p>
- <p><span style="color: #008000;">; fragt hier nach dem Host-Namen, der in unserem</span>
- </p>
- <p><span style="color: #008000;">; Fall "CIS" lautet und mit einem <CR> abgeschlos-</span>
- </p>
- <p><span style="color: #008000;">; sen werden muss.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">waitfor "Host Name:" until 30</span>
- </p>
- <p><span style="color: #008000;">if !$SUCCESS then</span>
- </p>
- <p><span style="color: #008000;"> Errstr="Compuserve Host-Name"</span>
- </p>
- <p><span style="color: #008000;"> goto fehler</span>
- </p>
- <p><span style="color: #008000;">endif</span>
- </p>
- <p><span style="color: #008000;">transmit "CIS^M"</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Jetzt muss unsere CIS-Anwenderkennung ⁿbermittelt</span>
- </p>
- <p><span style="color: #008000;">; werden. Es wird die Systemvariable $USERID benutzt,</span>
- </p>
- <p><span style="color: #008000;">; die den entsprechenden Eintrag aus dem Anwahl-</span>
- </p>
- <p><span style="color: #008000;">; Dialog enthΣlt. Die ID wird mit dem Parameter</span>
- </p>
- <p><span style="color: #008000;">; RAW gesendet, damit keine Steuer- bzw. So nder-</span>
- </p>
- <p><span style="color: #008000;">; zeichenⁿbersetzung auf dem Host stattfindet.</span>
- </p>
- <p><span style="color: #008000;">; Das Kommando fⁿr einen PPP-Connect kann man gleich</span>
- </p>
- <p><span style="color: #008000;">; an die ID mitanhΣngen. Das ganze muss mit einem <CR></span>
- </p>
- <p><span style="color: #008000;">; abgeschlossen werden.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">waitfor "User ID:" until 30</span>
- </p>
- <p><span style="color: #008000;">if !$SUCCESS then</span>
- </p>
- <p><span style="color: #008000;"> Errstr="Compuserve Anwenderkennung"</span>
- </p>
- <p><span style="color: #008000;"> goto fehler</span>
- </p>
- <p><span style="color: #008000;">endif</span>
- </p>
- <p><span style="color: #008000;">transmit $USERID, raw</span>
- </p>
- <p><span style="color: #008000;">transmit "/go:pppconnect^M"</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Mit der ▄bermittlung des Passwortes wird das Login</span>
- </p>
- <p><span style="color: #008000;">; abgeschlossen. Es wird die Systemvariable $PASSWORD</span>
- </p>
- <p><span style="color: #008000;">; benutzt, die den entsprechenden Eintrag aus dem</span>
- </p>
- <p><span style="color: #008000;">; Anwahl-Dialog enthΣlt. Das Passwort wird mit dem</span>
- </p>
- <p><span style="color: #008000;">; Parameter RAW gesendet, damit keine Steuer- bzw.</span>
- </p>
- <p><span style="color: #008000;">; Sonderzeichenⁿbersetzung auf dem Host stattfindet.</span>
- </p>
- <p><span style="color: #008000;">; Das ganze muss mit einem <CR> abgeschlossen werden.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">waitfor "Password:" until 30</span>
- </p>
- <p><span style="color: #008000;">if !$SUCCESS then</span>
- </p>
- <p><span style="color: #008000;"> Errstr="Compuserve Anwenderpasswort"</span>
- </p>
- <p><span style="color: #008000;"> goto fehler</span>
- </p>
- <p><span style="color: #008000;">endif</span>
- </p>
- <p><span style="color: #008000;">transmit $PASSWORD, raw</span>
- </p>
- <p><span style="color: #008000;">transmit "^M"</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Damit ist das Login abgeschlossen. Wir warten</span>
- </p>
- <p><span style="color: #008000;">; jetzt nur noch auf eine kleine Quittierung vom</span>
- </p>
- <p><span style="color: #008000;">; System</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">waitfor "One moment please" until 60</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Hurra - Wir stehen im Internet! Das Skript endet</span>
- </p>
- <p><span style="color: #008000;">; hier und das Login-Fenster schlie▀t sich.</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">goto ende</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">;*** Mist! Ein Fehler ist aufgetreten.</span>
- </p>
- <p><span style="color: #008000;">; Der Grund wird ⁿber Modem-Echo ins</span>
- </p>
- <p><span style="color: #008000;">; Verbindungsfenster geleitet</span>
- </p>
- <p><span style="color: #008000;">;</span>
- </p>
- <p><span style="color: #008000;">fehler:</span>
- </p>
- <p><span style="color: #008000;">transmit "+++" ; Modem in Kommandomodus schicken</span>
- </p>
- <p><span style="color: #008000;">delay 3 ; Kommandomoduszwangspause</span>
- </p>
- <p><span style="color: #008000;">waitfor "ok", "0" until 5 ; Auf OK oder 0 warten</span>
- </p>
- <p><span style="color: #008000;">transmit "ate1^M" ; Modem: Echo ein</span>
- </p>
- <p><span style="color: #008000;">waitfor "ok", "0" until 2 ; Auf OK oder 0 warten</span>
- </p>
- <p><span style="color: #008000;">; Fehlerinformation senden (kommt als Echo ins Fenster)</span>
- </p>
- <p><span style="color: #008000;">transmit "*** VERBINDUNGSFEHLER:^M^J"</span>
- </p>
- <p><span style="color: #008000;">transmit "*** " + ErrStr + " wurde nicht angefordert^M^J"</span>
- </p>
- <p><span style="color: #008000;">transmit "*** Das Skript wird daher abgebrochen.^M^J"</span>
- </p>
- <p><span style="color: #008000;">delay 3 ; Anwender Zeit zum Lesen lassen</span>
- </p>
- <p><span style="color: #008000;">transmit "ath0^M" ; Modem soll auflegen</span>
- </p>
- <p><span style="color: #008000;">delay 10 ; Zeit fⁿr System zum Gen. des</span>
- </p>
- <p><span style="color: #008000;">halt ; Meldungsfensters</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">;***********************************************</span>
- </p>
- <p><span style="color: #008000;">ende:</span>
- </p>
- <p> </p>
- <p><span style="color: #008000;">endproc</span>
- </p>
- <!--sphider_noindex-->
- <hr />
- <p style="text-align: center;"><strong>URL:
- http://www.winfaq.de/faq_html/Content/tip0000/tip0088.htm</strong>
- </p>
- <p style="text-align: center;"><strong>WinFAQ « Version 7.6 Copyright ⌐ 1996/2008 by Frank Ullrich</strong>
- </p>
- <!--/sphider_noindex-->
- <div class="separator">
- </div>
- <script type="text/javascript" src="../skinsupport/madcapbodyend.js">
- </script>
- </body>
- </html>